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; 1 001 MODULE ACCESS ( : 
; ¢ 0 ¢ LANGUAGE COL 13536) » : 
; 0 IDENT = ‘V0Q4=-000' : 
; 4 004 d= : 
; 5 005 1 BEGIN : 
; 6 006 1 3 
; 7? 007 1! : 
3 3 R208 RSC CEST T TST TTT Tere Terrace etre teri ci iti c citi ti iit titi itiitiiiiiiii : 
; 0010 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * ; 
eb 0011 1 '* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * ; 
; \¢ B16 : r? ALL RIGHTS RESERVED. x ; 
° . ® | . 
>; «614 S014 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * . 
.. oe 0015 1 !* ONLY IN ACCORDANCE WITH THE R OF SUCH LICENSE AND WITH THE * | : 
; % 0016 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * : 
» 0017 1 !* COPIES THEREOF MAY NOT BE *kOVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
; 33 0018 1 !* OTHER PERSON. NO TITLE 70 AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
; sith : = TRANSFERRED. * | : 
Py Mie * Py 
; $3 0021 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * ‘ 
; ; 00 ; 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
3 $7 Boe : .* CORPORATION. + | 3 
3 ' x : 
: = 0025 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
; 2 0026 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * : 
. « 0027 1 !* * : 
; @& 0028 1 !* “ 5 
: 50 4594 LL eee eee RRR E RAE A AAA AAA ERATE AAA AEA E TAREE REET : 
; 0 0030 1 : 
3 1 0031 1 !++ | ; 
3 i T4 1} | ; 
3; «€6fS 0035 1 ! FACILITY: F11ACP Structure Level 1 3 
; 34 0034 1! ; 
; $2 0035 1 ! ABSTRACT: ; 
3; 0036 1! | : 
; HA sth ! This is the main processing routine for the ACCESS function. : 
; FF 0039 1 ! ENVIRONMENT: : 
: 40 0040 1! ’ 
; 641 0041 1! STARLET operating system, including privileged system services : 
3 (Se sk 1 | and internal exec routines. | : 
; 43 0045 1! ; 
3; «646 Boe 1 !e- : 
3 45 045 1! ‘ 
; 46 poe : 
3 rif 744 } AUTHOR: Andrew C. Goldstein, CREATION DATE: 20-Dec-1976 15:43 : 
; 649 0049 1 ! MODIFIED BY: 3 
>; 050 1! : 
: #F 0051 1! vO3-003 LMP0154 L. Mark Pilant 19-Sep-1983 12:36 : 
3 26 O828 : Return to the primary header after reading the attributes. : 
: 24 $084 a v03-002 LMP0023 L. Mark Pilant, 85 ite 10:40 : 
; 35 Bnee 1! f there is only one FCB, don't call REMAP_FILE but still ; 
; 2$ Bpes : set COMPLETE in the window. . 
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3 rs B28 1! v03-001 LMP0018 L. Mark Pilant, 31-Mar-1982 12:00 

ed! 2 : Modify to use a local copy of the window complete flag. 

, 66} pet 1! v02-005 LMP000S L. Mark Pilant, 29-Dec-1981 12:35 

oe p06 1! Added byte Limit quota check on window creationi and 

; o7 904 : } Cathedral window support. 
; 65 0065 1! V02-004 ACG0225 Andrew C. Goldstein, 24-Nov-1981 17:39 
; 66 Boog ; } Add NOLOCK support 
; 668 0068 1! V02-003 ACG0167 Andrew C. Goldstein, 7-May-1980 18:47 
7 oe 0069 1! Previous revision history moved to F11A.REV 

: 70 0070 1 iss | 
Te 0071 1 

ee 0072 1 | 
TS 0073 1 LIBRARY 'SYSS$LIBRARY:LIB.L32'; 
$ 74 0074 1 REQUIRE 'SRC$:FCPDEF.B32'; 

3; 0389 1 | 
oo. 0390 1 
2 ar 0391 1 FORWARD ROUTINE 
; 0392 #1 ACCESS, ! main access function processing 

3; 79 0393 1 CHECK_FIND, ! conditional directory search : 
: 80 0394 1 HANDLER; ' conditional handler to catch error exit 
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GLOBAL ROUTINE ACCESS = 
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BEGIN 
LOCAL 
FCB_CREATED, ' flag indicating new FCB created 
PACRET : REF BBLOCK, ' address of I/0 packet Wes 
: REF BBLOCKVECTOR C,ABDSC_LENGTH], ; 
' Buffer descriptors 
FIB : REF BBLOCK, ! file identification block 
: REF BBLOCK, ' FCB address 
HEADER : REF BBLOCK, ! address of file header 
NEW _ HEADER : REF rw ab ! address of extension header 
FUNTTION : BLOCK (1); ! function code qualifiers 
EXTERNAL 


FUNCTIONAL DESCRIPTION: 

This is the main processing routine for the ACCESS function. 
CALLING SEQUENCE: 

ACCESS () 
INPUT PARAMETERS: 

NONE 
IMPLICIT INPUTS: 

CURRENT _VCB: VCB of volume 

IO_PACKET: address of 1/0 request packet 
OUTPUT PARAMETERS: 

NONE 


i IMPLICIT OWTPUTS: 
PRIM 


IMARY_FCB: FCB of file 


yoneet WINDOW: address of file window 
USER_STATUS: 1/0 status block to return to user 


ROUTINE VALUE: 
NONE 


i SIDE EFFECTS: 


FCB & window created 


USER_STATUS : VECTOR 
CURRENT_VCB : 


' 
! 
FCB REF BB ‘ ; 
CURRENT WINDOW REF BBLOCK, : ndow for file 
: REF BBLOCK, ' 1/0 request packet 
CLEANUP_FLAGS : BITVECTOR, ' cleanup action flags. 
FILE_HEADER : REF BBLOCK; ! Address of current file header 


EXTERNAL ROUTINE 
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GET_FIB, 
FIND 


FILE 
MARK_COMPLETE; 


p-1984 00:46: 
amar 99358:98 DISKSVMSMASTER:C 

; 9st FIB for operation 

! nd file in directory 

' create file 

' search FCB List 

' read file header 

' read extension file header 

' create an FC 

' check file protection 

! create a window 

' complete the access 

' create and Link extension FCB 

' flush a file from the buffer pool 

! update attributes in FCB 

' read file attributes 

' remap the file completely 

! mark file complete 


Enable the deaccess cleanup if an access is taking place. 


PACKET = .10 PACKET; 
FUNCTION = .PACKETCIRPSW_FUNC); 
IF ,FUNCTIONL1OSV_ACCESSJ 


BEGIN 
CLEANUP_FLAGS CLF_ZCHANNEL) = 1; 
CLEANUP_FLAGS CLFDELWINDOW) = 1; 


Set up pointers to interesting control blocks. 


ABD = 
FIB = GET_FIB (.ABD); 
lookup if a directory 


with a fi 
creates. 


IF _.FUNCTIONCIOSV_CREATE) 
THEN 


BEGIN 
IF . CLEANUP_FLAGSCCLF_SPOOLF ILE) 
IF .FIBCFIBSW_DID_NUM)] NEQ 0 


THEN NOT CHECR_FIND (.ABD, .FIB) 
ELSE 1 


) 
THEN 


BEGIN 
USER _STATUSCO] = SS$_CREATED; 
RETURN CREATE (); 


! poi 
-BBLOCK C.PACKETCIRPSL_SVAPTE], alpst-p 


nter to buffer descriptors 
ESCRIPTI; 
! pointer to FIB 


Do directory phat media if any. For a normal access, do the directory 
D is present. If this is a conditional create, do 
the Lookup and turn the function into a create if the lookup fails 
e not found. Conditional create on spool devices always become 


VAX-11 Bliss=32 V4.0- 
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ELSE 
IF .FIBCFIBSW_DID_NUM] NEQ 0 
THEN FIND (.ABD, [FIB, 0); 


' If there is a file open on the channel, check the file ID returned by the 
e 


! 
! FIND against the file ID that is open. If they are different, drop the FCB 
and window addresses on the floor. 


IF .PRIMARY_FCB NEQ 0 
THEN 


If .PRIMARY_FCBCFCBSW_FID_NUM] NEQ oer ieee ean 
Fae RERARY PCS FCBSW_FID_RVN] NEQ .FIBCFIBSW_FID_RVN) 
BEGIN | 
PRIMARY_FCB = 0; 
CURRENT_WINDOW = 0; 
END; 
! If this is a find only, exit now to avoid an extraneous read of the 
file header. 
IF NOT stint | Lom 1008 ACCESS] ! if no access. ; 
AND .PACKETCIRP$W_BCNT] LEQ ABDSC_ATTRIB ! and no attribute List 
THEN RETURN 1; ! all done 


! Find the FCB of the file, if one exists. then read the file 
header. If there is no FCB, create one. 


SOBVEARUV SVS NAAR UA OSBUE AR AUS SOE 


FCB = SEARCH_FCB (FIBCFIB$W_FID)); 
(FIBCFIBS$W_FIDJ, .FCB); 


POPGPORPIPOPIPONONOPPOPo No Ponononofonyd 


MEW 9 ODN UNE WN 0 OD NAME UIN 0 ODNOA UNE WIN OO ONO NEW OOO NOUS W000 


3 HEADER = READ_HEADER 

3§ ! If the file is marked for delete and is not accessed by this user, and 
$e the accessor is not the system, deny its existence. 

3$ 55 IF .CURRENT WINDOW EQL 0 AND .HEADERCFHIS$SV_MARKDEL) 

38 55 AND -BBCOCK CBBLOCK C.PACKETCIRPSL_ARBJ, ARBS$Q_PRIVJ, PRVS$V_BYPASS] 
ib 22 THEN ERR_EXIT (SS$_NOSUCHF ILE); 

41 55 FCB_CREATED = 0; 

$5 55 IF .FCB EQL 0 

4 55 THEN 

44 55 BEGIN 

45 55 FCB_CREATED = 1; 

: 2? a, = KERNEL_CALL (CREATE_FCB, .HEADER); 

36 PRIMARY_FCB = .FCB; ' record FCB for external use 
50 56 ! If access is requested, check for conflicts and file protection. 

33 20 then create a window and Link everything up. 
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; 3 : 
; 4 $8 IF _ .FUNCTIONCIO$V_ACCESS) ; 
; 5 o8 neg : 
; 4 576 CHECK_PROTECT (.FIBCFIBSV_WRITE] OR .FIBCFIBSV_NOREAD], .HEADER, .FCB); ‘ 
; § sre 4 IF (. HEADERCFHISY Locnesy) : 
; 260 7 AND NOT .BBLOCK CBBLOCK C.PACKETCIRPSL_ARB], ARBSOQ_PRIV], PRVSV_BYPASS] : 
5 2: er THEN ERR_EXIT (SSS_FILELOCKED); ! file’is deaccess Tocked ‘ 
; 2 278 4 IF (.FCBCFCBSV_EXCLJ : 
; 264 577 4 AND NOT (.FIB ciBsV NOLOCK] AND CLEANUP FLAGSCCLF _SYSPRVJ)) ; 
; 65 278 4 OR (.FIBCFIBSV_NOREAD) AND .FCBCFCBSW_ACNT) REQ 0) . 
3 28 579 4 OR (.FIRLFIBSV_NOWRITE] AND Ebetr cose WCNT) NEQ 0) ; 
; 26 0580 4 OR (.FIB rips unite AND .FCBCFCBSW_LONT] NEQ 0) ; 
; 268 0581 4 OR (.FCBCFCBSW_SEGN) NEQ 0 AND .FCBCFCBSW_ACNT] NEQ 0) . : 
3 34 b28¢ THEN ERR_EXIT TSS$_ACCONFLICT); ! one of above access conflicts ‘ 
: 271 0584 ; 
3 % P 0585 CURRENT WINDOW = KERNEL_CALL (CREATE WINDOW ret eh ACCTLI, ; 
> 2? 0586 FIBCFIBSB WSIZEJ, ;HEADER, .PACRETCIRPSL_PIDJ, .FCB); ; 
5 74 0587 IF .CURRENT_WINDOW EQL 0 THEN ERR EXIT (SS$_ERBYTLM); 3 
3 e F3 KERNEL_CALL (MAKE_ACCESS, .FCB, .CURRENT_WINDOW, .ABD); : 
; e277 0590 : If the file looks Like a directory file and it is being write accessed, ‘ 
3 279 0398 } flush it from the buffer pool to avoid retaining stale directory data. ; 
: 280 059 ; 
> 281 0594 IF .FIBCFIBSV_WRITE) ; 
; 382 0595 AND .BBLOCK [ EADERLFH1 $4 RECATTR]. FATSB_RTYPE) EQL FATSC_FIXED : 
; 28 0596 AND .BBLOCK CHEADER(FH1$W_RECATTRJ, FATS$W_RSIZEJ EQL NMBSC_DIRENTRY ; 
; see $444 THEN FLUSH_FID (FIBCFIBSW_FID)); : 
3 $o8 4444 END; ! end of access processing : 
; 288 0601 ! If the file is multi-header, read the extension headers and create : 
; 289 boos ! extension FCB's as necessary. Finally read back the primary header. : 
: 4 0605 IF .FCB_CREATED : 
:; 29 0606 THEN : 
; 07 BEGIN F 
; 295 608 WHILE 1 DO 3 
; 4 609 4 BEGIN 3 
; 10 4 NEW_HEADER = NEXT HEADER (.HEADER, .FCB); 3 
3 8 pet} 4 IF TNEW_HEADER EQC 0 THEN EXITLOOP; 3 
; 299 \¢ 4 HEADER = .NEW_ HEADER; i 
; 300 0613 4 IF .FUNCTIONCTOSV_ACC : 
: 301 0614 4 AND SEARCH FCB (HEADERCFH1$W_FID]) NEQ 0 F 
; 34 oF 4 THEN ERR_ERIT (SS$_ACCONFLICT); ; 
; 30 16 4 FCB = KERNEL_CALL TMAKE_EXTFCB, .HEADER, .FCB, .FUNCTIONCIOSV_ACCESS)); 3 
: Be pele END; 

: 306 gis IF .FCB NEQ .PRIMARY_FCB 

; 307 0 THEN 

; 308 1 4 BEGIN 

: 09 0622 4 FCB = .PRIMARY_FCB; 
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; 10 3 4 HEADER = READ HEADER (0, .FCB); 
: 1 4 4 KERNEL_CALL (OPDATE_FCB, .HEADER); 
: i 625 END; 
: 34 057 can 
; 315 8 ! Do read attributes if requested. 
89 680 5 
: 318 631 2 IF .PACKETCIRPSW_BCNT) GTR ABDSC_ATTRIB 
; 319 ; THEN 
; 0 BEGIN 
; 321 06 4 IF .CURRENT_ WINDOW EQL 0 
3 ¢ 635 THEN CHECK PROTECT (RDATT_ACCESS, .HEADER, .FCB); 
; 06 6 IF NOT KERNEL CALL (READ_ATTRIB, .HEADER, .ABD) THEN ERR_EXIT (); 
; & 06 HEADER = .FILE_HEADER; 
aah he 
; ; Bees ! If necessary map the file completely. 
; 99 064¢ IF ;FUNCTIONC1OSV_ACCESS] 
3 31 0664 IF, CURRENT _WINDOWLWCBSV_ CATHEDRAL] 
; 34 064 IF .PRIMARY FCBLFCBSL_EXFCB) NEQ 0 
; 334 064 THEN REMAP_FILE( 
; +H Roeg ELSE KERNEC_CALL (MARK_COMPLETE, .CURRENT_WINDOW) ; 
; 37 0630 RETURN 1; 
: 339 0652 1 END; ! end of routine ACCESS 


H_FID 
“ATTRIB 
“EXTRN REMAP FILE. MARK~COMPLETE 
“EXTRN SYSSCAKRNL 


-PSECT SCODES,NOWRT,2 


OFFC 00000 ENTRY ACCESS, Save R2.R3.R4.R5,R6,R7,RB,.RI,R10,- ; 0395 
B 90006 CF 9E 0000 MOVAB CURRENT_WINDOW, R11 ; 
A 00 G CF 9€ 0000 MOVAB PRIMARY7FCB, R10 : 
9 000000006 9F 9E 0000 MOVAB a@#SYSSCAKRNL, RO : 
55 00006 CF p 001 MOVL 19 PACKET, PACKET > 0473 
56 20 AS 3¢ 00018 MOVZWL TPACKETS, FUNCTION > 0474 
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ACCE ib-se -1984 00:46: VAX=11 Bliss-32 v4.0-742 Page 8 ACP 
1005080 12-8 08- 1 3be 99:58:93 DISKSVMSMASTER:CF11A.SRCJACCESS.B32;1 ° (2) Le 
07 56 6 €1 1 BBC #6, FUNCTION, 1$ 3 0475 S4 
00006 cf 0492 F Ag " BISW2 #10626, CLEANUP_FLAGS+2 + 0479 ; 
7 C 5 D 1$: MOVL @44(PACKET), ABD + 048 ; 
DD 8 PUSHL + 048 : 
00006 cf . ¢ 0 CALLS #1, GET_FIB : : 
2 0 p 0 MOVL a : : 
2 ; is FUNCTION : 0496 : 
00006 CF 9 § 9 TSTB CLEANUP_FLAGS + 0499 ; 
11 19 0003p BLSS 5 : ; 
OA A2 83 003F TSTw  10(F 1B) + 0501 ; 
9 13 00042 BEQL 2 : : 
DD 00044 PUSHL FIB : 0502 ; 
57 DD 0046 PUSHL ABD : : 
0000v CF 08 FB 9004 CALLS #2, CHECK_FIND : : 
1D 5 004D BLBS RO, 4$ : : 
00006 CF 0619 BF 3C 00050 2s: MOVZWL #1561, USER_STATUS > 0507 ; 
00006 CF 00 FB 00057 CALLS #0, CREATE : 0508 : 
04 0005¢ RET : 
OA A2 8 00050 3$: TSTw = 10¢F 18) > 0513 
08 13 00060 BEQL «6s 45$ : 
7E D4 00062 CLRL =s-_ = (SP) + 0514 
52 DD 00064 PUSHL FIB ; 
57 0D 00066 PUSHL ABD : 
00006 CF 03 FB 00068 CALLS #3, FIND : 
50 6A b0 0006D 4$ MOVL PRIMARY_FCB, RO + 0521 
12 13 00070 BEQL : 
06 A2 24 ad Bi 00072 CMPW »=s-s«-36 (RO), 4(FIB) : 0523 
07 12 0007 BNEQ : 
08 A2 28 Ad B81 00079 CMPw =s-_-« &O(RO), -8(F IB) > 0524. 
04 13 OO07E BEQL 66S : 
6A 04 00080 5S: CLRL + PRIMARY_FCB : 0527. 
6B 04 00082 CLRL CURRENT WINDOW : 03¢8 
09 56 06 £0 00084 6S: BBS #6, FUNCTION, 7$ : 0535. 
05 32. AS Bi 00088 CMPW  SO(PACKET), #5 : 0536. 
03 1A 0008C BGTRU 7$ : 
O1AF 31 O008E BRWw 0 : 
04 A2 9F 00091 7s: PUSHAS 4(FIB) > 0543. 
00006 CF 01 FB 00094 CALLS #1, SEARCH_FCB : 
53 50 DO 00099 MOVL RO, FCB : 
53 DD 0009C PUSHL FCB + 0544 
04 A2 9F 0009E PUSHAB 4(FIB) : 
00006 CF 02 FB OO0A1 CALLS #2, READ_HEADER ; 
54 5 09 900a8 MOVL RO, HEADER : 
6B p OOA TSTL | CURRENT_WINDOW : 0550 
OF 2 000AB BNEQ : 
Op A& 95 O00AD TSTB = 1 3( HEADER) F 
0A 18 00080 BGEQ Ss : 
05 58 BS 1D £0 008¢ BBS #29 a88(PACKET), 8$ > 0551 
0910 8F BF 08 CHMU #2320 > 0552 
4 00088 RET : 
58 D4 OOOBC 8S CLRL FCB_CREATED > 0554 
53D OBE TSTL FCB : 0555 
13 12 000C BNEQ 9§ : 
58 gi D 99¢ MOVL #1, FCB_CREATED : 0558 
4 DD 000C PUSHL HEADER : 0559 
01 pd 000C¢ PUSHL #1 ; 
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ACCE 1b-se 1984 00:46:0 VAX=11 Bliss-32 V4.0-742 P 1 
Vv £880 4 a2 79:3854 DISKSVMSMASTER A.SRCJACCESS.B32;1 > 3 


14-Sep-19 CF 14 
10 10 AG 81 00178 CMPW =s-« 16( HEADER), #16 1 0596. : 
0 * 1 As BNEQ $$ : ; 
04 A2 9F 001 F PUSHAB 4(FIB) : 0597 : 
0000G CF FB 1 CALLS #1, FLUSH_FID 3 : 
60 § £9 001 gos: BLEC FCB_CREATED, 25$ ; 0605 : 
DD 001 1$:  PUSHL FCB : 0610 : 
54 DD 00188 PUSHL HEADER : | : 
00006 cf : F 18D CALLS #2, NEXT_HEADER : | ; 
2 D 1 é MOVL RO, NEW_READER : | : 
1 13 0019 BEQL 24$ + 0611. : 
54 2 pO 00197 MOVL §§ NEW_HEADER, HEADER : O61¢ ; 
1 56 06 f O94 C #6, FUNCTION, 23$ : 0613) ; 
02 Ad SF 0019E PUSHAB 2(HEADER) : 0614) ; 
00006 CF 01 FB OO1AI CALLS #1, SEARCH_FCB : : 
0 05 0016 TSTL RO : F 
05 13 001A8 BEQL 23$ : | : 
0800 &F BF OOTAA 22$: cHMU #2048 ; 0615 : 
7E 56 01 06 EF OO AF 23$: EXTZV #6, #1, FUNCTION, -(SP) + 0616. ; 
53 DD 00184 PUSHL FCB : | : 
54 DD 00186 PUSHL HEADER : | : 
03 DD 00188 PUSHL # : : 
SE DD OO1BA PUSHL SP : ; 
00006 CF 9F 001BC PUSHAB MAKE _EXTFCB : : 
69 06 FB 001CO CALLS #6, SYSSCMKRNL ; | : 
53 50 pO 001C3 MOVL RO. FCB : | : 
C1 11 00166 BRB 21 + 0608. : 
6A 53 D1 001C8 248: CMPL FCB, PRIMARY_FCB > 0619 : 
1C 13 001CB BEOL g2 ; 3 
53 6A D0 001CD MOVL RIMARY_FCB, FCB + 0622 : 
53 DD 00100 PUSHL FCB > 0623 : 
7E D4 00102 CLRL. = (SP) : : 
0000G CF 02 FB 00104 CALLS #2, READ_HEADER : | ; 
54 50 DO 00109 MOVL RO. HEADER : ; 
54 DD 0010¢ PUSHL HEADER > 0624 ; 
01 DD 001DE PUSHL #1 : : 
5E DD 001E0 PUSHL SP : F 
0000G CF 9F O01E2 PUSHAB UPDATE_FCB : : 
69 04 FB 001E6 CALLS #4, S*SSCMKRNL : 3 
05 32. AS B1 OO1ES 25$: CMPW  SO(PACKET), #5 + 0631 : 
29 1B OO1ED BLEQU : : 
68 D5 OO1EF TSTL | CURRENT_WINDOW > 0634 ; 
08 12 001F1 BNEQ  26$ : : 
2 DD O1FS PUSHL FCB > 0635 : 
4 dD OO1F PUSHL HEADER : | : 
04 DD 001F7 PUSHL #4 : : 
00006 CF 03 FB 001F9 CALLS #3, CHECK PROTECT : : 
0090 8F 6B Ore 26$ PUSHR #*M<R4,R75 > 0636 : 
02 DD 0020 PUSHL : : 
5E DD 00 04 PUSHL ; | : 
00006 CF 9F 00 PUSHAB READ ATTRIB : 3 
69 5 re O20A CALLS #5, SYSSCAKRML 3 3 
03 9 7 6 0 BLBS RO. 278 ; : 
BF 1 CH ; : 
4 0021 RET ; : 
54 0000G CF 00 0 1 378: MOVL FILE_HEADER, HEADER > 0637 : 
24 56 06 £1 1B 28$: BBC #6, FUNCTION, 30$ > 0642 ; 
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; Routine Size: 


4 00:46:05 VAX-11 Bliss-32 V4.0-742 P 2 
4 90:58:93 DISKSVMSMASTER:CFIiA.SRCJACCESS.B32:1 > a 


ROUTINE CHECK_FIND (ABD, FIB) = 


'e¢ 


' | 
: FUNCTIONAL DESCRIPTION: 


Ee ott ttt 


AOWMAGIMNIVI 


WN" OOONOUEWw 


return true. Any signals cause either unwind or resignal. 


-FP = HANDLER; 


; 1 ; 
; 1 ° 
; 1 ‘ 
3 1: ; 
; 345 1} : 
; rs 1 | 
; 34 1! This routine calls the directory search and intercepts any error wis 
(3 «348 z= exits to handle the create if non-existent function. If the search - 3 
; 349 661 1! is successful, the routine returns success; if the search fails with e-4 
; 350 See 1 | no such file and the create subfunction bit is set, it returns failure; ae *4 
ae?) 0665 1! all other errors are resignaled. 74 
Ps 5 ¢ 664 1 ‘ | . | 
: 5 665 1! e 3 
; 354 0666 1 ! CALLING SEQUENCE: | 2 
; 355 0667 1 | CHECK_FIND (ARG1, ARG2) : 
; 356 0668 1! | 3 
S wer 0669 1 ! INPUT PARAMETERS: 4 
3; oe 0670 1! ARG1: address of buffer descriptor packet  ; 
3 oF 0671 1! ARG2: address of FIB ej 
; 360 0672 1! 4 
: 361 06735 1 ! IMPLICIT INPUTS: 4 
; $06 0674 1! NONE 4 
: 36 0675 1! : 
> 364 0676 1 ! OUTPUT PARAMETERS: - 
: 365 0677 1! NONE ey 
; 366 0678 1! ag 
; 367 0679 1 ! IMPLICIT OUTPUTS: ae 
: 368 0680 1! NONE | - 
; 369 0681 1! ne 4 
; 370 0682 1 ! ROUTINE VALUE: | | . 3 
; 371 685 1! 1 if find is successful s 3 
z Hes 684 1! 0 if file is to be created - 3 
ae 0685 1! : | 
3; 374 0686 1 ! SIDE EFFECTS: - 
; $2 0687 1! NONE : 
; 376 0688 1! 2 
; 377 0689 1 !-- ce J 
; 378 0690 1 | : 
; 379 0691 2 BEGIN 4 
; 381 0693 2 MAP | | 
3 $85 0694 ABD : REF BBLOCKVECTOR C,ABD$C_LENGTH], i 
; Hh 308? FIB : REF BBLOCK; P23 
: 385 be87 BUILTIN . 
; 386 0698 FP; 3 | 
3; wer 0699 3 
: 388 0700 EXTERNAL ROUTINE . g 4 
; «389 0701 FIND; ! find file in directory es 
a. i q 
3 § Be ! Establish the condition handler and call FIND. If we hear from it we e ! 
. é 4 
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-1984 00:46:05 VAX-11 Bliss-32 V4.0-742 Page 
aati 99:58:98 DISKSVMSMASTER:CF11A.SRCIJACCESS.B32;1 . 


: 403 714 1 ROUTINE HANDLER (SIGNAL, MECHANISM) = 

; 404 715 (1 

; 405 rig 1 lee 
: 406 “if i$ 
: re) ors } FUNCTIONAL DESCRIPTION: 
; 409 720 1! This routine is the condition handler for the conditional find call. 

: 410 85 : ae It intercepts the error exit from FIND and unwinds to CHECK_FIND's 

; 6411 7 § 1! caller when appropriate. 

3 rt 7 1! 

: (41 724 (1! 

> 416 725 1 ! CALLING SEQUENCE: 

> 415 72 (61 HANDLER (ARG1, ARG2) 

; $18 0727 1! 

> «41 0728 1 ! INPUT PARAMETERS: 

; «418 0729 1! ARG1: address of signal array 

: rh of ? : ARG2: address of mechanism array 

3 631 O73 1 ! IMPLICIT INPUTS: | 
: 4 ; 07 1! NONE | 
3 62 0734 1! 
> 424 0735 1 ! OUTPUT PARAMETERS: 

; $82 0736 1! NONE 

; 426 0737 1! 
: 427 0738 1 ! IMPLICIT OUTPUTS: 

; 428 0739 1! NONE 
; ri +4 0740 1! 
: 430 0741 1 ! ROUTINE VALUE: ; : 

; 431 Bree 1} SS$_RESIGNAL or none if unwind 

; ry 07435 1! 

; 43 0744 1 ! SIDE EFFECTS: 
: 434 0745 1! NONE 
; 435 0746 1! 
; 436 0747 1 !-- | 
: 437 0748 1 

; 438 0749 1 

: 439 0750 BEGIN 

: 440 0751 

: 44 075 SIGNAL : REF BBLOCK, ! signal arg array 
: re Oree MECHANISM : REF BBLOCK; ' mechanism arg array | 
3: 445 0756 EXTERNAL ROUTINE | 
3; 464 pee SYSSUNWIND : ADDRESSING_MODE (ABSOLUTE); : 

3 (44 758 ' system unwind service 

: 448 0759 

3; 449 0760 : : 

; 450 0761 ! If the condition is change mode to user (error exit) and the status is 
; 451 O08 ! no such file, cause an unwind to return 0 to the access main Line. | 
: $36 076 ! Otherwise, just resignal the condition. 

: 465 the: ! 

: 456 765 

3; 6455 0766 IF .SIGNALCCHFSL_SIG_NAME] EQL SS$_CMODUSER 

3 rt 767 AND .SIGNALCCHFS$C_SIG_ARG1] EQL SSS$_NOSUCHF ILE 

: 45 768 THEN 

; 458 re? BEGIN 

; 459 0770 MECHANISMCCHFSL_MCH_SAVRO) = 0; 


; Routine Size: 


o 
oO 


Name 
SCODES 


File 


_$255$DUA28: 


771 SYSSUNWIND (0, 0); 
Ore END; 
ie RETURN SS$_RESIGNAL; 
776 END; 
000 
50h ac OO OO 
00000424 =F 04 Ad D1 00 
1A 12 00 
00000910 =F 08 ad 01 88 
10 12 00 
50 08 AC 00 00 
Oc Ad ee 00 
7E 7C 00 
00000000G 9F 02 FB 00 
50 0918 8F 3C 00 
04 00 
48 bytes, Routine Base: S$CODE$S + 025A 
0777 
0778 END 


PSECT SUMMARY 


Bytes 
650 NOVEC,NOWRT, RD, 
Library Statistics 
cnaronee Symbols 
Total Loaded 
CSYSLIBILIB.L32;1 18619 50 


nN 3 
16-Sep-1984 00:46: VAX-11 Bliss-32 V4.0-742 
12286871 382 99358 :93 DISKSVMSMASTER:CF11A.SRCJACCESS.B32; 29 
! status is irrelevant if unwinding 
! end of routine HANDLER 
-EXTRN SYSSUNWIND 
68 HANDLER: .WORD Save arornine 3 
MOVL SIGNA : 
006 CMPL 2(ROD. e “#1060 3 
00 BNEQ 1$ : 
4 CMPL 8(RO), #2320 3 
1 BNEQ 1$ : 
O1A MOVL me CHAN HANISM, RO g 
O1E CLRL 12(RO : 
021 CLRQ -(SP) 3 
023 CALLS oS E08 ig aspoarpe é 
O2A 1$: MOVZWL #2528 : 
O2F ET : 
Attributes 
EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
couceese Pages Processing 
Percent Mapped Time 
0 1000 00:01.9 


j 
V5ee000 1b-$¢ 3op7 138s 99:38:98 = SNE lwGmASTERSCHTiAssReaaccess.a32;1°% «A$ 
; COMMAND QUALIFIERS 


: BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=LIS$:ACCESS/OBJ=OBJ$:ACCESS MSRC$:ACCESS/UPDATE=(ENH$:ACCESS) 
Size: “as + 0 data bytes 


poet | Used: 226 pages 
; Compilation Complete | 
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